home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pcmagazi
/
1989
/
07
/
string2.bas
< prev
next >
Wrap
BASIC Source File
|
1988-09-25
|
202b
|
11 lines
DEFINT A-Z
a = ASC(search$)
FOR i = 1 TO n
IF a = ASC(array$(i)) THEN
IF search$ = array$(i) THEN
PRINT search$; " found at element"; i
EXIT FOR
END IF
END IF
NEXT